home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Macintosh / Development & Resource Tools / ResEdit3.0d.sit / ResEdit™ 3.0 / Plugins / txtoPlugin.rsrc / EDL_16387_Resource.txto next >
Text File  |  1996-04-23  |  753b  |  27 lines
  1. Label(_ResourceStart);
  2.  
  3. // Total object size, padded to a longword boundary
  4. CalcBitsU((_ResourceEnd - _ResourceStart)/8,32);
  5.  
  6. CalcBitsU(1,8); // Version number = 1
  7. PadBits(23);
  8. CalcBitsU(0,1); // Marks object as persistent.
  9.  
  10. txtoHeader(); // Invoke plugin to read or write directory structure.
  11.  
  12. List(strings, txtoEntry)
  13.     {
  14.     LabelAttr(stringPos);
  15.     calctxtoEntryLen(); // Invoke plugin to fetch string length
  16.                               // from directory structure (only used when
  17.                               // exploding), and to copy type fields from
  18.                               // the directory data.
  19.     String(string,Unbounded);
  20.     }
  21.  
  22. Label(_ArrayEnd);
  23. fixuptxtoLens(); // Invoke plugin to store entry lengths in directory
  24.                  // structure (only used when imploding).
  25.  
  26. Align(4);
  27. Label(_ResourceEnd);